home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d21 / dvglue.arc / TVPSCALE.C < prev    next >
C/C++ Source or Header  |  1990-01-09  |  2KB  |  51 lines
  1. /*================================================*/
  2. /* TVPSCALE.C                                     */
  3. /*                                                */
  4. /* (c) Copyright 1988 Ralf Brown                  */
  5. /*     All Rights Reserved                        */
  6. /* May be freely copied for noncommercial use as  */
  7. /* long as this copyright notice is kept intact   */
  8. /* and any changes are indicated in the comment   */
  9. /* blocks for the functions                       */
  10. /*================================================*/
  11.  
  12. #include "tvapi.h"
  13.  
  14. /*================================================*/
  15. /* TVptr_setscale  set pointer scale factors      */
  16. /*   Ralf Brown 6/13/88                           */
  17. /*================================================*/
  18.  
  19. void pascal TVptr_setscale(OBJECT ptr,int x,int y)
  20. {
  21.    PARMLIST2 p ;
  22.  
  23.    if (TVisobj(ptr))
  24.       {
  25.       p.num_args = 2 ;
  26.       p.arg[0] = x ;
  27.       p.arg[1] = y ;
  28.       TVsendmsg(SETSCALE_MSG, TOS, ptr, (PARMLIST *)&p) ;
  29.       }
  30. }
  31.  
  32. /*================================================*/
  33. /* TVptr_getscale  get pointer scale factors      */
  34. /*   Ralf Brown 6/13/88                           */
  35. /*================================================*/
  36.  
  37. void pascal TVptr_getscale(OBJECT ptr,int *x,int *y)
  38. {
  39.    PARMLIST2 p ;
  40.  
  41.    if (TVisobj(ptr))
  42.       {
  43.       p.num_args = 0 ;
  44.       TVsendmsg(SETSCALE_MSG, TOS, ptr, (PARMLIST *)&p) ;
  45.       *x = (int) p.arg[0] ;
  46.       *y = (int) p.arg[1] ;
  47.       }
  48. }
  49.  
  50. /* End of TVPSCALE.C */
  51.